/* source/misc2.c: misc utility and initialization code, magic objects code

   Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke

   This software may be copied and distributed for educational, research, and
   not for profit purposes provided that this copyright and statement are
   included in all such copies. */

#ifdef __TURBOC__
#include	<stdio.h>
#endif /* __TURBOC__ */

#include "config.h"
#include "constant.h"
#include "types.h"
#include "externs.h"


/* Chance of treasure having magic abilities		-RAK-	*/
/* Chance increases with each dungeon level			 */
void magic_treasure(x, level)
int x, level;
{
  register inven_type *t_ptr;
  register int chance, special, cursed, i;
  int tmp;
#ifdef ATARIST_MWC
  int32u holder;
#endif

  chance = OBJ_BASE_MAGIC + level;
  if (chance > OBJ_BASE_MAX)
    chance = OBJ_BASE_MAX;
  special = chance / OBJ_DIV_SPECIAL;
  cursed  = (10 * chance) / OBJ_DIV_CURSED;
  t_ptr = &t_list[x];

  /* some objects appear multiple times in the object_list with different
     levels, this is to make the object occur more often, however, for
     consistency, must set the level of these duplicates to be the same
     as the object with the lowest level */

  /* Depending on treasure type, it can have certain magical properties*/
  switch (t_ptr->tval)
    {
    case TV_SHIELD: case TV_HARD_ARMOR: case TV_SOFT_ARMOR:
      if (magik(chance))
	{
	  t_ptr->toac += m_bonus(1, 30, level);
	  if (magik(special))
	    switch(randint(9))
	      {
	      case 1:
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_RES_LIGHT|TR_RES_COLD|TR_RES_ACID|
				 TR_RES_FIRE);
#else
		t_ptr->flags |= (TR_RES_LIGHT|TR_RES_COLD|TR_RES_ACID|
				 TR_RES_FIRE);
#endif
		t_ptr->name2 = SN_R;
		t_ptr->toac += 5;
		t_ptr->cost += 2500;
		break;
	      case 2:	 /* Resist Acid	  */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_RES_ACID);
#else
		t_ptr->flags |= TR_RES_ACID;
#endif
		t_ptr->name2 = SN_RA;
		t_ptr->cost += 1000;
		break;
	      case 3: case 4:	 /* Resist Fire	  */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_RES_FIRE);
#else
		t_ptr->flags |= TR_RES_FIRE;
#endif
		t_ptr->name2 = SN_RF;
		t_ptr->cost += 600;
		break;
	      case 5: case 6:	/* Resist Cold	 */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_RES_COLD);
#else
		t_ptr->flags |= TR_RES_COLD;
#endif
		t_ptr->name2 = SN_RC;
		t_ptr->cost += 600;
		break;
	      case 7: case 8: case 9:  /* Resist Lightning*/
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_RES_LIGHT);
#else
		t_ptr->flags |= TR_RES_LIGHT;
#endif
		t_ptr->name2 = SN_RL;
		t_ptr->cost += 500;
		break;
	      }
	}
      else if (magik(cursed))
	{
	  t_ptr->toac -= m_bonus(1, 40, level);
	  t_ptr->cost = 0;
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	}
      break;

    case TV_HAFTED: case TV_POLEARM: case TV_SWORD:
      /* always show tohit/todam values if identified */
      t_ptr->ident |= ID_SHOW_HITDAM;
      if (magik(chance))
	{
	  t_ptr->tohit += m_bonus(0, 40, level);
	  /* Magical damage bonus now proportional to weapon base damage */
	  tmp = t_ptr->damage[0] * t_ptr->damage[1];
	  t_ptr->todam += m_bonus(0, 4*tmp, tmp*level/10);
	  /* the 3*special/2 is needed because weapons are not as common as
	     before change to treasure distribution, this helps keep same
	     number of ego weapons same as before, see also missiles */
	  if (magik(3*special/2))
	    switch(randint(16))
	      {
	      case 1:	/* Holy Avenger	 */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_SEE_INVIS|TR_SUST_STAT|
				 TR_SLAY_UNDEAD|TR_SLAY_EVIL|TR_STR);
#else
		t_ptr->flags |= (TR_SEE_INVIS|TR_SUST_STAT|TR_SLAY_UNDEAD|
				 TR_SLAY_EVIL|TR_STR);
#endif
		t_ptr->tohit += 5;
		t_ptr->todam += 5;
		t_ptr->toac  += randint(4);
		/* the value in p1 is used for strength increase */
		/* p1 is also used for sustain stat */
		t_ptr->p1    = randint(4);
		t_ptr->name2 = SN_HA;
		t_ptr->cost += t_ptr->p1*500;
		t_ptr->cost += 10000;
		break;
	      case 2:	/* Defender	 */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_FFALL|TR_RES_LIGHT|TR_SEE_INVIS|
				 TR_FREE_ACT|TR_RES_COLD|TR_RES_ACID|
				 TR_RES_FIRE|TR_REGEN|TR_STEALTH);
#else
		t_ptr->flags |= (TR_FFALL|TR_RES_LIGHT|TR_SEE_INVIS|TR_FREE_ACT
				 |TR_RES_COLD|TR_RES_ACID|TR_RES_FIRE|
				 TR_REGEN|TR_STEALTH);
#endif
		t_ptr->tohit += 3;
		t_ptr->todam += 3;
		t_ptr->toac  += 5 + randint(5);
		t_ptr->name2 = SN_DF;
		/* the value in p1 is used for stealth */
		t_ptr->p1    = randint(3);
		t_ptr->cost += t_ptr->p1*500;
		t_ptr->cost += 7500;
		break;
	      case 3: case 4:	 /* Slay Animal  */
		t_ptr->flags |= TR_SLAY_ANIMAL;
		t_ptr->tohit += 3;
		t_ptr->todam += 3;
		t_ptr->name2 = SN_SA;
		t_ptr->cost += 5000;
		break;
	      case 5: case 6:	/* Slay Dragon	 */
		t_ptr->flags |= TR_SLAY_DRAGON;
		t_ptr->tohit += 3;
		t_ptr->todam += 3;
		t_ptr->name2 = SN_SD;
		t_ptr->cost += 4000;
		break;
	      case 7: case 8:	  /* Slay Evil	   */
		t_ptr->flags |= TR_SLAY_EVIL;
		t_ptr->tohit += 3;
		t_ptr->todam += 3;
		t_ptr->name2 = SN_SE;
		t_ptr->cost += 4000;
		break;
	      case 9: case 10:	 /* Slay Undead	  */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_SEE_INVIS|TR_SLAY_UNDEAD);
#else
		t_ptr->flags |= (TR_SEE_INVIS|TR_SLAY_UNDEAD);
#endif
		t_ptr->tohit += 2;
		t_ptr->todam += 2;
		t_ptr->name2 = SN_SU;
		t_ptr->cost += 3000;
		break;
	      case 11: case 12: case 13:   /* Flame Tongue  */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_FLAME_TONGUE);
#else
		t_ptr->flags |= TR_FLAME_TONGUE;
#endif
		t_ptr->tohit++;
		t_ptr->todam += 3;
		t_ptr->name2 = SN_FT;
		t_ptr->cost += 2000;
		break;
	      case 14: case 15: case 16:   /* Frost Brand   */
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_FROST_BRAND);
#else
		t_ptr->flags |= TR_FROST_BRAND;
#endif
		t_ptr->tohit++;
		t_ptr->todam++;
		t_ptr->name2 = SN_FB;
		t_ptr->cost += 1200;
		break;
	      }
	}
      else if (magik(cursed))
	{
	  t_ptr->tohit -= m_bonus(1, 55, level);
	  /* Magical damage bonus now proportional to weapon base damage */
	  tmp = t_ptr->damage[0] * t_ptr->damage[1];
	  t_ptr->todam -= m_bonus(1, 11*tmp/2, tmp*level/10);
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	  t_ptr->cost = 0;
	}
      break;

    case TV_BOW:
      /* always show tohit/todam values if identified */
      t_ptr->ident |= ID_SHOW_HITDAM;
      if (magik(chance))
	{
	  t_ptr->tohit += m_bonus(1, 30, level);
	  t_ptr->todam += m_bonus(1, 20, level); /* add damage. -CJS- */
	}
      else if (magik(cursed))
	{
	  t_ptr->tohit -= m_bonus(1, 50, level);
	  t_ptr->todam -= m_bonus(1, 30, level); /* add damage. -CJS- */
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	  t_ptr->cost = 0;
	}
      break;

    case TV_DIGGING:
      /* always show tohit/todam values if identified */
      t_ptr->ident |= ID_SHOW_HITDAM;
      if (magik(chance))
	{
	  tmp = randint(3);
	  if (tmp < 3)
	    t_ptr->p1 += m_bonus(0, 25, level);
	  else
	    {
	      /* a cursed digging tool */
	      t_ptr->p1 = -m_bonus(1, 30, level);
	      t_ptr->cost = 0;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	    }
	}
      break;

    case TV_GLOVES:
      if (magik(chance))
	{
	  t_ptr->toac += m_bonus(1, 20, level);
	  if (magik(special))
	    {
	      if (randint(2) == 1)
		{
#ifdef ATARIST_MWC
		  t_ptr->flags |= (holder = TR_FREE_ACT);
#else
		  t_ptr->flags |= TR_FREE_ACT;
#endif
		  t_ptr->name2 = SN_FREE_ACTION;
		  t_ptr->cost += 1000;
		}
	      else
		{
		  t_ptr->ident |= ID_SHOW_HITDAM;
		  t_ptr->tohit += 1 + randint(3);
		  t_ptr->todam += 1 + randint(3);
		  t_ptr->name2 = SN_SLAYING;
		  t_ptr->cost += (t_ptr->tohit+t_ptr->todam)*250;
		}
	    }
	}
      else if (magik(cursed))
	{
	  if (magik(special))
	    {
	      if (randint(2) == 1)
		{
		  t_ptr->flags |= TR_DEX;
		  t_ptr->name2 = SN_CLUMSINESS;
		}
	      else
		{
		  t_ptr->flags |= TR_STR;
		  t_ptr->name2 = SN_WEAKNESS;
		}
	      t_ptr->ident |= ID_SHOW_P1;
	      t_ptr->p1   = -m_bonus(1, 10, level);
	    }
	  t_ptr->toac -= m_bonus(1, 40, level);
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	  t_ptr->cost = 0;
	}
      break;

    case TV_BOOTS:
      if (magik(chance))
	{
	  t_ptr->toac += m_bonus(1, 20, level);
	  if (magik(special))
	    {
	      tmp = randint(12);
	      if (tmp > 5)
		{
#ifdef ATARIST_MWC
		  t_ptr->flags |= (holder = TR_FFALL);
#else
		  t_ptr->flags |= TR_FFALL;
#endif
		  t_ptr->name2 = SN_SLOW_DESCENT;
		  t_ptr->cost += 250;
		}
	      else if (tmp == 1)
		{
		  t_ptr->flags |= TR_SPEED;
		  t_ptr->name2 = SN_SPEED;
		  t_ptr->ident |= ID_SHOW_P1;
		  t_ptr->p1 = 1;
		  t_ptr->cost += 5000;
		}
	      else /* 2 - 5 */
		{
		  t_ptr->flags |= TR_STEALTH;
		  t_ptr->ident |= ID_SHOW_P1;
		  t_ptr->p1 = randint(3);
		  t_ptr->name2 = SN_STEALTH;
		  t_ptr->cost += 500;
		}
	    }
	}
      else if (magik(cursed))
	{
	  tmp = randint(3);
	  if (tmp == 1)
	    {
	      t_ptr->flags |= TR_SPEED;
	      t_ptr->name2 = SN_SLOWNESS;
	      t_ptr->ident |= ID_SHOW_P1;
	      t_ptr->p1 = -1;
	    }
	  else if (tmp == 2)
	    {
	      t_ptr->flags |= TR_AGGRAVATE;
	      t_ptr->name2 = SN_NOISE;
	    }
	  else
	    {
	      t_ptr->name2 = SN_GREAT_MASS;
	      t_ptr->weight = t_ptr->weight * 5;
	    }
	  t_ptr->cost = 0;
	  t_ptr->toac -= m_bonus(2, 45, level);
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	}
      break;

    case TV_HELM:  /* Helms */
      if ((t_ptr->subval >= 6) && (t_ptr->subval <= 8))
	{
	  /* give crowns a higher chance for magic */
	  chance += (int) (t_ptr->cost / 100);
	  special += special;
	}
      if (magik(chance))
	{
	  t_ptr->toac += m_bonus(1, 20, level);
	  if (magik(special))
	    {
	      if (t_ptr->subval < 6)
		{
		  tmp = randint(3);
		  t_ptr->ident |= ID_SHOW_P1;
		  if (tmp == 1)
		    {
		      t_ptr->p1 = randint(2);
		      t_ptr->flags |= TR_INT;
		      t_ptr->name2 = SN_INTELLIGENCE;
		      t_ptr->cost += t_ptr->p1*500;
		    }
		  else if (tmp == 2)
		    {
		      t_ptr->p1 = randint(2);
		      t_ptr->flags |= TR_WIS;
		      t_ptr->name2 = SN_WISDOM;
		      t_ptr->cost += t_ptr->p1*500;
		    }
		  else
		    {
		      t_ptr->p1 = 1 + randint(4);
#ifdef ATARIST_MWC
		      t_ptr->flags |= (holder = TR_INFRA);
#else
		      t_ptr->flags |= TR_INFRA;
#endif
		      t_ptr->name2 = SN_INFRAVISION;
		      t_ptr->cost += t_ptr->p1*250;
		    }
		}
	      else
		{
		  switch(randint(6))
		    {
		    case 1:
		      t_ptr->ident |= ID_SHOW_P1;
		      t_ptr->p1 = randint(3);
#ifdef ATARIST_MWC
		      t_ptr->flags |= (holder = TR_FREE_ACT|TR_CON|TR_DEX|
				       TR_STR);
#else
		      t_ptr->flags |= (TR_FREE_ACT|TR_CON|TR_DEX|TR_STR);
#endif
		      t_ptr->name2 = SN_MIGHT;
		      t_ptr->cost += 1000 + t_ptr->p1*500;
		      break;
		    case 2:
		      t_ptr->ident |= ID_SHOW_P1;
		      t_ptr->p1 = randint(3);
		      t_ptr->flags |= (TR_CHR|TR_WIS);
		      t_ptr->name2 = SN_LORDLINESS;
		      t_ptr->cost += 1000 + t_ptr->p1*500;
		      break;
		    case 3:
		      t_ptr->ident |= ID_SHOW_P1;
		      t_ptr->p1 = randint(3);
#ifdef ATARIST_MWC
		      t_ptr->flags |= (holder = TR_RES_LIGHT|TR_RES_COLD|
				       TR_RES_ACID|TR_RES_FIRE|TR_INT);
#else
		      t_ptr->flags |= (TR_RES_LIGHT|TR_RES_COLD|TR_RES_ACID|
				       TR_RES_FIRE|TR_INT);
#endif
		      t_ptr->name2 = SN_MAGI;
		      t_ptr->cost += 3000 + t_ptr->p1*500;
		      break;
		    case 4:
		      t_ptr->ident |= ID_SHOW_P1;
		      t_ptr->p1 = randint(3);
		      t_ptr->flags |= TR_CHR;
		      t_ptr->name2 = SN_BEAUTY;
		      t_ptr->cost += 750;
		      break;
		    case 5:
		      t_ptr->ident |= ID_SHOW_P1;
		      t_ptr->p1 = 5*(1 + randint(4));
#ifdef ATARIST_MWC
		      t_ptr->flags |= (holder = TR_SEE_INVIS|TR_SEARCH);
#else
		      t_ptr->flags |= (TR_SEE_INVIS|TR_SEARCH);
#endif
		      t_ptr->name2 = SN_SEEING;
		      t_ptr->cost += 1000 + t_ptr->p1*100;
		      break;
		    case 6:
		      t_ptr->flags |= TR_REGEN;
		      t_ptr->name2 = SN_REGENERATION;
		      t_ptr->cost += 1500;
		      break;
		    }
		}
	    }
	}
      else if (magik(cursed))
	{
	  t_ptr->toac -= m_bonus(1, 45, level);
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	  t_ptr->cost = 0;
	  if (magik(special))
	    switch(randint(7))
	      {
	      case 1:
		t_ptr->ident |= ID_SHOW_P1;
		t_ptr->p1 = -randint (5);
		t_ptr->flags |= TR_INT;
		t_ptr->name2 = SN_STUPIDITY;
		break;
	      case 2:
		t_ptr->ident |= ID_SHOW_P1;
		t_ptr->p1 = -randint (5);
		t_ptr->flags |= TR_WIS;
		t_ptr->name2 = SN_DULLNESS;
		break;
	      case 3:
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_BLIND);
#else
		t_ptr->flags |= TR_BLIND;
#endif
		t_ptr->name2 = SN_BLINDNESS;
		break;
	      case 4:
#ifdef ATARIST_MWC
		t_ptr->flags |= (holder = TR_TIMID);
#else
		t_ptr->flags |= TR_TIMID;
#endif
		t_ptr->name2 = SN_TIMIDNESS;
		break;
	      case 5:
		t_ptr->ident |= ID_SHOW_P1;
		t_ptr->p1 = -randint (5);
		t_ptr->flags |= TR_STR;
		t_ptr->name2 = SN_WEAKNESS;
		break;
	      case 6:
		t_ptr->flags |= TR_TELEPORT;
		t_ptr->name2 = SN_TELEPORTATION;
		break;
	      case 7:
		t_ptr->ident |= ID_SHOW_P1;
		t_ptr->p1 = -randint (5);
		t_ptr->flags |= TR_CHR;
		t_ptr->name2 = SN_UGLINESS;
		break;
	      }
	}
      break;

    case TV_RING: /* Rings	      */
      switch(t_ptr->subval)
	{
	case 0: case 1: case 2: case 3:
	  if (magik(cursed))
	    {
	      t_ptr->p1 = -m_bonus(1, 20, level);
#ifdef ATARIST_MWC
	      t_ptr->flags |= TR_CURSED;
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  else
	    {
	      t_ptr->p1 = m_bonus(1, 10, level);
	      t_ptr->cost += t_ptr->p1*100;
	    }
	  break;
	case 4:
	  if (magik(cursed))
	    {
	      t_ptr->p1 = -randint(3);
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  else
	    t_ptr->p1 = 1;
	  break;
	case 5:
	  t_ptr->p1 = 5 * m_bonus(1, 20, level);
	  t_ptr->cost += t_ptr->p1*50;
	  if (magik (cursed))
	    {
	      t_ptr->p1 = -t_ptr->p1;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  break;
	case 19:     /* Increase damage	      */
	  t_ptr->todam += m_bonus(1, 20, level);
	  t_ptr->cost += t_ptr->todam*100;
	  if (magik(cursed))
	    {
	      t_ptr->todam = -t_ptr->todam;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  break;
	case 20:     /* Increase To-Hit	      */
	  t_ptr->tohit += m_bonus(1, 20, level);
	  t_ptr->cost += t_ptr->tohit*100;
	  if (magik(cursed))
	    {
	      t_ptr->tohit = -t_ptr->tohit;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  break;
	case 21:     /* Protection	      */
	  t_ptr->toac += m_bonus(1, 20, level);
	  t_ptr->cost += t_ptr->toac*100;
	  if (magik(cursed))
	    {
	      t_ptr->toac = -t_ptr->toac;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  break;
	case 24: case 25: case 26:
	case 27: case 28: case 29:
	  t_ptr->ident |= ID_NOSHOW_P1;
	  break;
	case 30:     /* Slaying	      */
	  t_ptr->ident |= ID_SHOW_HITDAM;
	  t_ptr->todam += m_bonus(1, 25, level);
	  t_ptr->tohit += m_bonus(1, 25, level);
	  t_ptr->cost += (t_ptr->tohit+t_ptr->todam)*100;
	  if (magik(cursed))
	    {
	      t_ptr->tohit = -t_ptr->tohit;
	      t_ptr->todam = -t_ptr->todam;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  break;
	default:
	  break;
	}
      break;

    case TV_AMULET: /* Amulets	      */
      if (t_ptr->subval < 2)
	{
	  if (magik(cursed))
	    {
	      t_ptr->p1 = -m_bonus(1, 20, level);
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = -t_ptr->cost;
	    }
	  else
	    {
	      t_ptr->p1 = m_bonus(1, 10, level);
	      t_ptr->cost += t_ptr->p1*100;
	    }
	}
      else if (t_ptr->subval == 2)
	{
	  t_ptr->p1 = 5 * m_bonus(1, 25, level);
	  if (magik(cursed))
	    {
	      t_ptr->p1 = -t_ptr->p1;
	      t_ptr->cost = -t_ptr->cost;
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	    }
	  else
	    t_ptr->cost += 50*t_ptr->p1;
	}
      else if (t_ptr->subval == 8)
	{
	  /* amulet of the magi is never cursed */
	  t_ptr->p1 = 5 * m_bonus(1, 25, level);
	  t_ptr->cost += 20*t_ptr->p1;
	}
      break;

      /* Subval should be even for store, odd for dungeon*/
      /* Dungeon found ones will be partially charged	 */
    case TV_LIGHT:
      if ((t_ptr->subval % 2) == 1)
	{
	  t_ptr->p1 = randint(t_ptr->p1);
	  t_ptr->subval -= 1;
	}
      break;

    case TV_WAND:
      switch(t_ptr->subval)
	{
	case 0:	  t_ptr->p1 = randint(10) +	 6; break;
	case 1:	  t_ptr->p1 = randint(8)  +	 6; break;
	case 2:	  t_ptr->p1 = randint(5)  +	 6; break;
	case 3:	  t_ptr->p1 = randint(8)  +	 6; break;
	case 4:	  t_ptr->p1 = randint(4)  +	 3; break;
	case 5:	  t_ptr->p1 = randint(8)  +	 6; break;
	case 6:	  t_ptr->p1 = randint(20) +	 12; break;
	case 7:	  t_ptr->p1 = randint(20) +	 12; break;
	case 8:	  t_ptr->p1 = randint(10) +	 6; break;
	case 9:	  t_ptr->p1 = randint(12) +	 6; break;
	case 10:   t_ptr->p1 = randint(10) +	 12; break;
	case 11:   t_ptr->p1 = randint(3)  +	 3; break;
	case 12:   t_ptr->p1 = randint(8)  +	 6; break;
	case 13:   t_ptr->p1 = randint(10) +	 6; break;
	case 14:   t_ptr->p1 = randint(5)  +	 3; break;
	case 15:   t_ptr->p1 = randint(5)  +	 3; break;
	case 16:   t_ptr->p1 = randint(5)  +	 6; break;
	case 17:   t_ptr->p1 = randint(5)  +	 4; break;
	case 18:   t_ptr->p1 = randint(8)  +	 4; break;
	case 19:   t_ptr->p1 = randint(6)  +	 2; break;
	case 20:   t_ptr->p1 = randint(4)  +	 2; break;
	case 21:   t_ptr->p1 = randint(8)  +	 6; break;
	case 22:   t_ptr->p1 = randint(5)  +	 2; break;
	case 23:   t_ptr->p1 = randint(12) + 12; break;
	default:
	  break;
	}
      break;

    case TV_STAFF:
      switch(t_ptr->subval)
	{
	case 0:	  t_ptr->p1 = randint(20) +	 12; break;
	case 1:	  t_ptr->p1 = randint(8)  +	 6; break;
	case 2:	  t_ptr->p1 = randint(5)  +	 6; break;
	case 3:	  t_ptr->p1 = randint(20) +	 12; break;
	case 4:	  t_ptr->p1 = randint(15) +	 6; break;
	case 5:	  t_ptr->p1 = randint(4)  +	 5; break;
	case 6:	  t_ptr->p1 = randint(5)  +	 3; break;
	case 7:	  t_ptr->p1 = randint(3)  +	 1;
	  t_ptr->level = 10;
	  break;
	case 8:	  t_ptr->p1 = randint(3)  +	 1; break;
	case 9:	  t_ptr->p1 = randint(5)  +	 6; break;
	case 10:   t_ptr->p1 = randint(10) +	 12; break;
	case 11:   t_ptr->p1 = randint(5)  +	 6; break;
	case 12:   t_ptr->p1 = randint(5)  +	 6; break;
	case 13:   t_ptr->p1 = randint(5)  +	 6; break;
	case 14:   t_ptr->p1 = randint(10) +	 12; break;
	case 15:   t_ptr->p1 = randint(3)  +	 4; break;
	case 16:   t_ptr->p1 = randint(5)  +	 6; break;
	case 17:   t_ptr->p1 = randint(5)  +	 6; break;
	case 18:   t_ptr->p1 = randint(3)  +	 4; break;
	case 19:   t_ptr->p1 = randint(10) +	 12; break;
	case 20:   t_ptr->p1 = randint(3)  +	 4; break;
	case 21:   t_ptr->p1 = randint(3)  +	 4; break;
	case 22:   t_ptr->p1 = randint(10) + 6;
	  t_ptr->level = 5;
	  break;
	default:
	  break;
	}
      break;

    case TV_CLOAK:
      if (magik(chance))
	{
	  if (magik(special))
	    {
	      if (randint(2) == 1)
		{
		  t_ptr->name2 = SN_PROTECTION;
		  t_ptr->toac += m_bonus(2, 40, level);
		  t_ptr->cost += 250;
		}
	      else
		{
		  t_ptr->toac += m_bonus(1, 20, level);
		  t_ptr->ident |= ID_SHOW_P1;
		  t_ptr->p1 = randint(3);
		  t_ptr->flags |= TR_STEALTH;
		  t_ptr->name2 = SN_STEALTH;
		  t_ptr->cost += 500;
		}
	    }
	  else
	    t_ptr->toac += m_bonus(1, 20, level);
	}
      else if (magik(cursed))
	{
	  tmp = randint(3);
	  if (tmp == 1)
	    {
	      t_ptr->flags |= TR_AGGRAVATE;
	      t_ptr->name2 = SN_IRRITATION;
	      t_ptr->toac  -= m_bonus(1, 10, level);
	      t_ptr->ident |= ID_SHOW_HITDAM;
	      t_ptr->tohit -= m_bonus(1, 10, level);
	      t_ptr->todam -= m_bonus(1, 10, level);
	      t_ptr->cost =  0;
	    }
	  else if (tmp == 2)
	    {
	      t_ptr->name2 = SN_VULNERABILITY;
	      t_ptr->toac -= m_bonus(10, 100, level+50);
	      t_ptr->cost = 0;
	    }
	  else
	    {
	      t_ptr->name2 = SN_ENVELOPING;
	      t_ptr->toac  -= m_bonus(1, 10, level);
	      t_ptr->ident |= ID_SHOW_HITDAM;
	      t_ptr->tohit -= m_bonus(2, 40, level+10);
	      t_ptr->todam -= m_bonus(2, 40, level+10);
	      t_ptr->cost = 0;
	    }
#ifdef ATARIST_MWC
	  t_ptr->flags |= (holder = TR_CURSED);
#else
	  t_ptr->flags |= TR_CURSED;
#endif
	}
      break;

    case TV_CHEST:
      switch(randint(level+4))
	{
	case 1:
	  t_ptr->flags = 0;
	  t_ptr->name2 = SN_EMPTY;
	  break;
	case 2:
	  t_ptr->flags |= CH_LOCKED;
	  t_ptr->name2 = SN_LOCKED;
	  break;
	case 3: case 4:
	  t_ptr->flags |= (CH_LOSE_STR|CH_LOCKED);
	  t_ptr->name2 = SN_POISON_NEEDLE;
	  break;
	case 5: case 6:
	  t_ptr->flags |= (CH_POISON|CH_LOCKED);
	  t_ptr->name2 = SN_POISON_NEEDLE;
	  break;
	case 7: case 8: case 9:
	  t_ptr->flags |= (CH_PARALYSED|CH_LOCKED);
	  t_ptr->name2 = SN_GAS_TRAP;
	  break;
	case 10: case 11:
	  t_ptr->flags |= (CH_EXPLODE|CH_LOCKED);
	  t_ptr->name2 = SN_EXPLOSION_DEVICE;
	  break;
	case 12: case 13: case 14:
	  t_ptr->flags |= (CH_SUMMON|CH_LOCKED);
	  t_ptr->name2 = SN_SUMMONING_RUNES;
	  break;
	case 15: case 16: case 17:
	  t_ptr->flags |= (CH_PARALYSED|CH_POISON|CH_LOSE_STR|CH_LOCKED);
	  t_ptr->name2 = SN_MULTIPLE_TRAPS;
	  break;
	default:
	  t_ptr->flags |= (CH_SUMMON|CH_EXPLODE|CH_LOCKED);
	  t_ptr->name2 = SN_MULTIPLE_TRAPS;
	  break;
	}
      break;

    case TV_SLING_AMMO: case TV_SPIKE:
    case TV_BOLT: case TV_ARROW:
      if (t_ptr->tval == TV_SLING_AMMO || t_ptr->tval == TV_BOLT
	  || t_ptr->tval == TV_ARROW)
	{
	  /* always show tohit/todam values if identified */
	  t_ptr->ident |= ID_SHOW_HITDAM;

	  if (magik(chance))
	    {
	      t_ptr->tohit += m_bonus(1, 35, level);
	      t_ptr->todam += m_bonus(1, 35, level);
	      /* see comment for weapons */
	      if (magik(3*special/2))
		switch(randint(10))
		  {
		  case 1: case 2: case 3:
		    t_ptr->name2 = SN_SLAYING;
		    t_ptr->tohit += 5;
		    t_ptr->todam += 5;
		    t_ptr->cost += 20;
		    break;
		  case 4: case 5:
#ifdef ATARIST_MWC
		    t_ptr->flags |= (holder = TR_FLAME_TONGUE);
#else
		    t_ptr->flags |= TR_FLAME_TONGUE;
#endif
		    t_ptr->tohit += 2;
		    t_ptr->todam += 4;
		    t_ptr->name2 = SN_FIRE;
		    t_ptr->cost += 25;
		    break;
		  case 6: case 7:
		    t_ptr->flags |= TR_SLAY_EVIL;
		    t_ptr->tohit += 3;
		    t_ptr->todam += 3;
		    t_ptr->name2 = SN_SLAY_EVIL;
		    t_ptr->cost += 25;
		    break;
		  case 8: case 9:
		    t_ptr->flags |= TR_SLAY_ANIMAL;
		    t_ptr->tohit += 2;
		    t_ptr->todam += 2;
		    t_ptr->name2 = SN_SLAY_ANIMAL;
		    t_ptr->cost += 30;
		    break;
		  case 10:
		    t_ptr->flags |= TR_SLAY_DRAGON;
		    t_ptr->tohit += 3;
		    t_ptr->todam += 3;
		    t_ptr->name2 = SN_DRAGON_SLAYING;
		    t_ptr->cost += 35;
		    break;
		  }
	    }
	  else if (magik(cursed))
	    {
	      t_ptr->tohit -= m_bonus(5, 55, level);
	      t_ptr->todam -= m_bonus(5, 55, level);
#ifdef ATARIST_MWC
	      t_ptr->flags |= (holder = TR_CURSED);
#else
	      t_ptr->flags |= TR_CURSED;
#endif
	      t_ptr->cost = 0;
	    }
	}

      t_ptr->number = 0;
      for (i = 0; i < 7; i++)
	t_ptr->number += randint(6);
      if (missile_ctr == MAX_SHORT)
	missile_ctr = -MAX_SHORT - 1;
      else
	missile_ctr++;
      t_ptr->p1 = missile_ctr;
      break;

    case TV_FOOD:
      /* make sure all food rations have the same level */
      if (t_ptr->subval == 90)
	t_ptr->level = 0;
      /* give all elvish waybread the same level */
      else if (t_ptr->subval == 92)
	t_ptr->level = 6;
      break;

    case TV_SCROLL1:
      /* give all identify scrolls the same level */
      if (t_ptr->subval == 67)
	t_ptr->level = 1;
      /* scroll of light */
      else if (t_ptr->subval == 69)
	t_ptr->level = 0;
      /* scroll of trap detection */
      else if (t_ptr->subval == 80)
	t_ptr->level = 5;
      /* scroll of door/stair location */
      else if (t_ptr->subval == 81)
	t_ptr->level = 5;
      break;

    case TV_POTION1:  /* potions */
      /* cure light */
      if (t_ptr->subval == 76)
	t_ptr->level = 0;
      break;

    default:
      break;
    }
}


static struct opt_desc { char *o_prompt; int *o_var; } options[] = {
  { "Running: cut known corners",		&find_cut },
  { "Running: examine potential corners",	&find_examine },
  { "Running: print self during run",		&find_prself },
  { "Running: stop when map sector changes",	&find_bound },
  { "Running: run through open doors",		&find_ignore_doors },
  { "Prompt to pick up objects",		&prompt_carry_flag },
  { "Rogue like commands",			&rogue_like_commands },
  { "Show weights in inventory",		&show_weight_flag },
  { "Highlight and notice mineral seams",	&highlight_seams },
  { "Beep for invalid character",		&sound_beep_flag },
  { "Display rest/repeat counts",		&display_counts },
  { 0, 0 } };


/* Set or unset various boolean options.		-CJS- */
void set_options()
{
  register int i, max;
  vtype string;

  prt("  ESC when finished, y/n to set options, <return> or - to move cursor",
		0, 0);
  for (max = 0; options[max].o_prompt != 0; max++)
    {
      (void) sprintf(string, "%-38s: %s", options[max].o_prompt,
		     (*options[max].o_var ? "yes" : "no "));
      prt(string, max+1, 0);
    }
  erase_line(max+1, 0);
  i = 0;
  for(;;)
    {
      move_cursor(i+1, 40);
      switch(inkey())
	{
	case ESCAPE:
	  return;
	case '-':
	  if (i > 0)
	    i--;
	  else
	    i = max-1;
	  break;
	case ' ':
	case '\n':
	case '\r':
	  if (i+1 < max)
	    i++;
	  else
	    i = 0;
	  break;
	case 'y':
	case 'Y':
	  put_buffer("yes", i+1, 40);
	  *options[i].o_var = TRUE;
	  if (i+1 < max)
	    i++;
	  else
	    i = 0;
	  break;
	case 'n':
	case 'N':
	  put_buffer("no ", i+1, 40);
	  *options[i].o_var = FALSE;
	  if (i+1 < max)
	    i++;
	  else
	    i = 0;
	  break;
	default:
	  bell();
	  break;
	}
    }
}
